home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
numlib.data
< prev
next >
Wrap
Text File
|
1986-06-26
|
1KB
|
73 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::isqrt lisp::abs lisp::phase lisp::signum lisp::cis lisp::asin lisp::acos lisp::sinh lisp::cosh lisp::tanh lisp::asinh lisp::acosh lisp::atanh lisp::rational lisp::rationalize lisp::ffloor lisp::fround lisp::ftruncate lisp::fceiling lisp::lognand lisp::lognor lisp::logandc1 lisp::logandc2 lisp::logorc1 lisp::logorc2 lisp::lognot lisp::logtest lisp::byte lisp::byte-size lisp::byte-position lisp::ldb lisp::ldb-test lisp::mask-field lisp::dpb lisp::deposit-field))
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
system::imag-one
#C(0.0S0 1.0S0)
0
"~S is not a non-negative integer."
1
2
"#.imag-one"
1.0S0
2.0S0
-1.0S0
"The argument, ~s, is a logarithmic singularity.~
~%Don't be foolish, GLS."
lisp::rational
lisp::short-float
4.768372S-7
lisp::long-float
1.110223024625157E-16
"~S is neither rational nor float."
14
8
4
13
11
-1
lisp::proclaim
system::*make-constant
lisp::isqrt
lisp::abs
lisp::phase
lisp::signum
lisp::cis
lisp::asin
lisp::acos
lisp::sinh
lisp::cosh
lisp::tanh
lisp::asinh
lisp::acosh
lisp::atanh
lisp::rationalize
system::rationalize-float
lisp::ffloor
lisp::fceiling
lisp::ftruncate
lisp::fround
lisp::lognand
lisp::lognor
lisp::logandc1
lisp::logandc2
lisp::logorc1
lisp::logorc2
lisp::lognot
lisp::logtest
lisp::byte
lisp::byte-size
lisp::byte-position
lisp::ldb
lisp::ldb-test
lisp::mask-field
lisp::dpb
lisp::deposit-field
lisp::typep
)